Top 10k strings from Dog Fight (19xx)(-).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   2 PLANE=PLAN:
   2 *((R(P1)=0
   2 *((R(E1)=0
   2 (SPY,SPX)=15 
   1 UDGS FOR JETS
   1 SPY=SPY+R(P1):
   1 SPY=SPY+R(E1):
   1 SPX=SPX+R(P2)
   1 SPX=SPX+R(E2)
   1 SET UP CHARACTER ARRAY FOR BI-PLANES
   1 PY=PY+R(P1)*SPEED:
   1 PY1,PX1;"  ";
   1 PY,PX;A$(PN
   1 PY,PX;"  ";
   1 PX=PX+R(P2)*SPEED
   1 PRINT SCORE AND DETECT KEY PRESS
   1 PRINT NEW PLANE IMAGE
   1 PLAN=PLANE
   1 INSTALL MCH CODE FOR SOUND
   1 GO TO INSTRUCTIONS
   1 FORCE CAPS LOCK
   1 EY=EY+R(E1)*SPEED:
   1 EY1,EX1;"  ";
   1 EY,EX;A$(EN
   1 EY,EX;"  ";
   1 EX=EX+R(E2)*SPEED
   1 DOGFIGHT  ]6
   1 DIMEMSION & SET ARRAYS
   1 ;CL,CLL,P:
   1 ;"you prefer your opponent will";
   1 ;"will cause your plane to circle";
   1 ;"will allow you to score between"
   1 ;"want to fly?";
   1 ;"the hangers, here are your";
   1 ;"the enemy plane in order to";
   1 ;"reliable bi-plane or a sleek";
   1 ;"re-appear on the other side.";
   1 ;"present. You may fly a slow but";
   1 ;"one and four hits per burst.";
   1 ;"modern jet"
   1 ;"it enters a cloud, and then";
   1 ;"friend to aerial combat, or if";
   1 ;"flight instructions:-"
   1 ;"destroy it. Your machine guns";
   1 ;"circle."
   1 ;"be the notorious Von Spectrum!"
   1 ;"and have a larger turning";
   1 ;"a fighter ace of the past or";
   1 ;"Your plane will disappear once";
   1 ;"You will also see clouds drawn.";
   1 ;"You must score thirty hits on";
   1 ;"While I get the planes out of";
   1 ;"Which type of plane do you";
   1 ;"This is your chance to become";
   1 ;"PRESS ANY KEY TO START":
   1 ;"PRESS ANY KEY TO CONTINUE":
   1 ;"PLAYER 2";
   1 ;"PLAYER 1";
   1 ;"KEY W-Right";
   1 ;"KEY Q-Left";
   1 ;"KEY P-Right";
   1 ;"KEY O-Left"
   1 ;"KEY L-Fire";
   1 ;"KEY A-Fire";
   1 ;"Jets move faster than bi-planes"
   1 ;"How many players?";
   1 ;"Holding a movement key down";
   1 ;"HITS TAKEN":
   1 ;"GOOD LUCK!"
   1 ;"DOG FIGHT";
   1 ;"Another try Y/N":
   1 ;"2 Modern jet"
   1 ;"1...Bi-planes  2...Jets":
   1 ;"1 Bi-plane";
   1 ;". You can challenge a";
   1 ;"(Yellow)";
   1 ;"(Von Spectrum)";
   1 ;"(Green)";
   1 ;" -";B$(5
   1 ;" -";A$(5
   1 1190=H1190:
   1 ,SPX+R(P2)+1
   1 ,SPX+R(E2)+1
   1 *((R(P1)=1
   1 *((R(P1)=-1
   1 *((R(E1)=1
   1 *((R(E1)=-1
   1 (SPY+R(P1),SPX+R(P2))=14
   1 (SPY+R(P1)+1
   1 (SPY+R(E1),SPX+R(E2))=12
   1 (SPY+R(E1)+1
   1 "Please wait while i take them   out of the hangers."
   1 "DO YOU WANT CLOUDS Y/N":
   1  UDGS FOR BI-PLANE
   1  SET VARIABLES FOR MOVEMENT
   1  SET PLANE DIRECTION & MOVEMENT
   1  SET KEY PRESS FOR SPECTRUM
   1  SET INITIAL VARIABLES
   1  SET DIRECTION OF PLANE
   1  SCORE ROUTINE
   1  PRINT PLANE IMAGE
   1  INSTRUCTIONS
   1  EXPLOSION ROUTINE
   1  ERASE OLD IMAGE OF PLANE
   1  ERASE OLD IMAGE
   1  DETECT KEY PRESS PLAYER 2
   1  DETECT HIT
   1  DETECT CLOUD
   1  DETECT A HIT
   1  DETECT A CLOUD
   1  CLOUD ROUTINE
   1  CHARACTER ARRAY FOR JETS